Problemas con modulo de Update

[emmax]

Iniciado por lexus_lex

Amigos,

soy nuevo en este foro y los saludo y solicito su ayuda, tengo un problema, al hacer el update me dice {"ExecuteNonQuery: la propiedad Connection no se ha inicializado."}, adjunto codigo con problema:


conexion()

Dim comando As New OleDb.OleDbCommand

If DataGridView1.Rows.Count > 0 Then
If DataGridView1.SelectedRows.Count > 0 Then

Dim id_bita As String = DataGridView1.SelectedRows(0).Cells("idBita").ToSt ring
'open connection
If Not conex.State = ConnectionState.Open Then
conex.Open()
End If
'get data into datatable
Dim adaptador As New OleDb.OleDbDataAdapter("SELECT * FROM bitacora WHERE 'idBita= & TxtId.Text'", conex)

Dim datos As New DataTable
adaptador.Fill(datos)

TxtId.Text = id_bita
DTPFecha.Text = datos.Rows(1).Item("fecha")
DTPHoraIni.Text = datos.Rows(2).Item("horaini")
DTPHoraTerm.Text = datos.Rows(3).Item("horaterm")
TxtPlanta.Text = datos.Rows(4).Item("planta")
TxtEquipo.Text = datos.Rows(5).Item("equipo")
TxtInciden.Text = datos.Rows(6).Item("observacion")
TxtUsuario.Text = datos.Rows(7).Item("usuario")
'
'hide the id to be edited in TAG of txtstdid in case id is changed
TxtId.Tag = id_bita
'change button add to update
'Me.btnAdd.Text = "Update"
'disable button edit
'Me.btnEdit.Enabled = False
'close connection
conex.Close() "Aqui Cierras la Conexion"
End If
End If




comando.CommandText = "UPDATE bitacora " & _
" SET fecha='" & DTPFecha.Text & "'" & _
", horaini='" & DTPHoraIni.Text & "'" & _
", horaterm='" & DTPHoraTerm.Text & "'" & _
", planta='" & TxtPlanta.Text & "'" & _
", equipo='" & TxtEquipo.Text & "'" & _
", observacion='" & TxtInciden.Text & "'" & _
", usuario='" & TxtUsuario.Text & "'" & _
" WHERE idBita=" & TxtId.Tag


comando.ExecuteNonQuery() "Aqui llamas a executenonQuery con la conexion cerrada"

conex.Open()
comando.ExecuteNonQuery()
conex.Close()


MsgBox("Bitacora Modificada")

Si mal no veo el error esta en donde te escribi en rojo.