Besoin d'aide svp.."insersion de données de f

Bonjour,

voila je veux inserer mes données de m formilaire en vb .net dans une table access, et j'ai ecri sa, mais kand je click sur le boutton enregistrer dans mon formulai sa fai rien du tout ,svp pouvez vous m'aidez :

Private Sub InsertionDonnees()

Dim StrSql4 As String
Dim Agence As String
Dim LigneSpecialisee As Integer
Dim Telephone As Integer
Dim Fax As Integer
Dim Telesurveillance As Integer
Dim Rnis As String
Dim DateDeDeclaration As Date
Dim Appelant As String
Dim AffecterA As String
Dim Statut As String
Dim Priorite As Integer
Dim Commentaire As String

Try
StrSql4 = "insert into InfosDeclarations values('" & Agence & "','" & LigneSpecialisee & "','" & Telephone & "','" & Fax & "','" & Telesurveillance & "','" & Rnis & "','" & DateDeDeclaration & "','" & Appelant & "','" & AffecterA & "','" & Statut & "','" & Priorite & "','" & Commentaire & "'"
CmbBoxLib.Text = objDataReader.Item("Agence")
TxtBoxLs.Text = objDataReader.Item("LigneSpecialisee")
TxtBoxTel.Text = objDataReader.Item("Telephone")
TxtBoxFax.Text = objDataReader.Item("Fax")
TxtBoxTele.Text = objDataReader.Item("Telesurveillance")
TxtBoxRnis.Text = objDataReader.Item("Rnis")
TxtBoxDD.Text = objDataReader.Item("DateDeDeclaration")
TxtBoxAppelant.Text = objDataReader.Item("Appelant")
TxtBoxAffecter.Text = objDataReader.Item("AffecterA")
CmbBoxStatut.Text = objDataReader.Item("Statut")
CmbBoxPriorite.Text = objDataReader.Item("Priorite")
TxtBoxComm.Text = objDataReader.Item("Commentaire")
MsgBox("")
objCommand = New OleDbCommand(StrSql4, objConnexion) 'instanciation
Nb = objCommand.ExecuteNonQuery() 'Execution de l'ExecuteNonQuery
Console.Out.WriteLine(Nb & "ligne(s) insérée(s)")

Catch Ex As Exception
Console.Out.WriteLine("Erruer D'insertion" & Ex.Message())
End Try
End Sub

*********************************************************