VB实现批量更新出现错误怎么解决啊

Private Sub btnAllupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllupdate.Click
        Dim str As String = "select * from IBAPATIENT "
        Dim conn As OleDb.OleDbConnection = New DBAccess().getConn()
        conn.Open()
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(str, conn)
        Dim adapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(cmd)
        Dim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adapter)
        adapter.Update(ds.Tables("patient"))
        conn.Close()
    End Sub
其中的ds是我绑定DataGridView时的dataSet对象，在数据库中也设置了主键，可怎么总是提示返回的列找不到主键呢？有一个和我写的一样就没有错误，到底是为什么啊？
请各位大侠帮忙解决一下吧，谢了！！！ 
--------------------编程问答-------------------- 学习，帮顶！ --------------------编程问答-------------------- 你ds中显示的数据 有主键嘛 把主键放进去

补充：.NET技术 ,  VB.NET