这两句你可以这样改：

dim dt as DataTable=Me.DataGridView1.DataSource
CopyRow(dr,newdr)
然后再加上一个过程：（记得就在你这个窗体里加，你可能是初学者，如果你不知道加在什么地方，那你就把下面这段代码复制到你窗体的最下方，看看还有没有问题）

Sub CopyRow(ByVal ODr As DataRow, ByVal DDr As DataRow)'获取列标题
For i As Integer = 0 To ODr.Table.Columns.Count - 1
DDr(ODr.Table.Columns(i).ColumnName) = ODr(ODr.Table.Columns(i).ColumnName)
Next
End Sub

呵呵，这一句实际上是为了得到你数据的一行。
如果我说得不能令你明白，你可以把你的Ｓｑｌ语句发上来。我帮你写这一句。