Visual Basic.NET - Problema con update a access

Hola;

Tengo un problemilla al hacer un update en access, os cuelgo el codigo, el update me lo hace pero me da este error:
Excepción no controlada del tipo 'System.Data.OleDb.OleDbException' en system.data.dll

he pensado en poner un try catch para saltarlo pero me parece una chapuza

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim bd As New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=expe.mdb")
Dim com As New System.Data.OleDb.OleDbCommand("update expedientes set exp='" & nexp.Text & "',tipo='" & tipo.Text & "',empresa='" & empresa.Text & "',estado='" & estado.Text & "',trabajo='" & trabajo.Text & "',fecha='" & fecha.Text & "'", bd)
Dim i As Integer

If (nexp.Text <> "") Then
bd.Open()
i = com.ExecuteNonQuery()
MessageBox.Show("El expediente se ha actualizado correctamente", "Actualizacion correcta", MessageBoxButtons.OK, MessageBoxIcon.Information)
bd.Close()
Else
MessageBox.Show("Faltan datos", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub

A ver si veis alo que yo no veo
gracias

Dim Bd As New OleDb.OleDbConnection
Dim Com As New OleDb.OleDbCommand

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Bd.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=expe.mdb"
Bd.Open()

Try
Com.Connection =Bd
Com.CommandText ="Update expedientes set exp='" & nexp.Text & "',tipo='" & tipo.Text & "',empresa='" & empresa.Text & "',estado='" & estado.Text & "',trabajo='" & trabajo.Text & "',fecha='" & fecha.Text & "'"

If (nexp.Text <> "") Then
i = com.ExecuteNonQuery()
MessageBox.Show("El expediente se ha actualizado correctamente", "Actualizacion correcta", MessageBoxButtons.OK, MessageBoxIcon.Information)

Else
MessageBox.Show("Faltan datos", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

Catch ex As Exception
MessageBox.Show(ex.Message, "Error al insertar en la base de datos", MessageBoxButtons.OK, MessageBoxIcon.Error)

Finally
If bd.State = ConnectionState.Open Then
bd.Close()
End If
End Try

End Sub