Visual Basic - ayuda por favor!!

Hola a todos, mirad tengo el siguiente trozo de codigo:
Dim odbcomm As New OdbcCommand("SELECT * FROM APUN0401", cnDBF)
Dim odbdataadapter1 As New OdbcDataAdapter(odbcomm)
Dim dataset11 As New DataSet()
Dim cb As New OdbcCommandBuilder(odbdataadapter1)
odbdataadapter1.Fill(dataset11, "apun0401")
dataset11.Tables("apun0401").Rows(0).Item("CUE") = "999999999"
odbdataadapter1.Update(dataset11.GetChanges(DataRowState.Modified), "apun0401")

El problema es que me da el siguiente error hagga lo que haga:
La generacion dinamica de SQL para updatecommand no es compatible con selectcommand si este no devuelve la informacion acerca de columnas clave
Alguien sabe como solucionarlo?
Muchisimas gracias de antemano

Dim DInf As ADODB.Connection
Dim SQL As ADODB.Recordset
Dim StrSql As String
Set DInf = New ADODB.Connection
StrSql = "DSN=iurix;UID=iurix;PWD=a"
DInf.Open StrSql
Set SQL = New ADODB.Recordset
SQL.CursorType = adOpenKeyset
SQL.LockType = adLockOptimistic
StrSql = "SELECT * FROM ORG Where org_codigo = '" & OrgCod.Text & "'"
SQL.Open StrSql, DInf
If SQL.EOF Then
o podes poner un While para recorrerlo, cualquier cosa escribime a mi direccion de mail y te mando mas

Muchas gracias por tu respuesta! en cuanto lo pruebe te escribo y te cuento
Saludos