buenas tardes soy novato en visual basic 2008
y quiero hacer una ventana de altas bajas y modificaciones me conecto a una base de datos access 2010

envio lo que he codificado
pero cuando capturo ya no me pasa al boton de guardar ni me deja hacerlo..

agradecere de su experiencia

Imports System.Data.OleDb
Public Class shipment
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles salir.Click
FORMENU.Show()
Me.Close()
End Sub

Private Sub shipment_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


End Sub

Private Sub lot1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub



Private Sub Grabar_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grabar.Enter

End Sub

Private Sub consulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles consulta.Click
limpiar()
captura.Enabled = False
movimientos.Visible = False
guardar.Visible = False
ship.Focus()
End Sub

Private Sub ship_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub


Private Sub sip_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
End Sub

Private Sub ship_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)

End Sub


Private Sub ship_KeyPress_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ship.KeyPress
If Asc(e.KeyChar) = 13 Then
Try
conecta()
Dim da As New OleDbDataAdapter("select * from shipment where shipment= " & ship.Text, CONEXION)
Dim ds As New DataSet
da.Fill(ds, "shipment")
limpiar()
ship.DataBindings.Add("text", ds, "shipment.shipment")
shipd.DataBindings.Add("text", ds, "shipment.shipdate")
lot1.DataBindings.Add("text", ds, "shipment.lote1")
bar1.DataBindings.Add("Text", ds, "shipment.bar1")
dorew1.DataBindings.Add("text", ds, "shipment.doreweight1")
contau1.DataBindings.Add("text", ds, "shipment.containsau1")
contag1.DataBindings.Add("text", ds, "shipment.containsag1")
lot2.DataBindings.Add("text", ds, "shipment.lote2")
bar2.DataBindings.Add("Text", ds, "shipment.bar2")
dorew2.DataBindings.Add("text", ds, "shipment.doreweight2")
contau2.DataBindings.Add("text", ds, "shipment.containsau2")
contag2.DataBindings.Add("text", ds, "shipment.containsag2")
lot3.DataBindings.Add("text", ds, "shipment.lote3")
bar3.DataBindings.Add("Text", ds, "shipment.bar3")
dorew3.DataBindings.Add("text", ds, "shipment.doreweight3")
contau3.DataBindings.Add("text", ds, "shipment.containsau3")
contag3.DataBindings.Add("text", ds, "shipment.containsag3")
lot4.DataBindings.Add("text", ds, "shipment.lote4")
bar4.DataBindings.Add("Text", ds, "shipment.bar4")
dorew4.DataBindings.Add("text", ds, "shipment.doreweight4")
contau4.DataBindings.Add("text", ds, "shipment.containsau4")
contag4.DataBindings.Add("text", ds, "shipment.containsag4")
movimientos.Visible = True
Catch ex As Exception
MsgBox("no existe")
Grabar.Visible = True
captura.Visible = True
End Try
End If
End Sub

Private Sub shipd_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles shipd.KeyPress

End Sub

Private Sub guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles guardar.Click

End Sub
End Class