[djelloul]

يمكنك استخدام طريقة الباراميتر
هذا الكود كمثال يبقى عليك تغيير أسماء الحقول وأسماء التيكست بوكس ليتوافق مع مشروعك وفقك الله
If cnn.State = ConnectionState.Open Then
cnn.Close()
End If
Try
Dim sqlF As String = "INSERT INTO [Patients] ([Nom_P], [Prenom_P],[Adresse],[Date_N],[Phone],[Sexe],[GroupageS],[Fonction],[Assure],[ATCD_P],[ATCD_f],[Photo])" & _
"values(@Nom_P, @Prenom_P, @Adresse, @Date_N, @Phone, @Sexe, @GroupageS, @Fonction,@Assure,@ATCD_P,@ATCD_F,@Photo)"
Dim saveF As New SqlClient.SqlCommand(sqlF, cnn)

saveF.Parameters.AddWithValue("@Nom_P", (Me.txtNom.Text))
saveF.Parameters.AddWithValue("@Prenom_P", (Me.txtPrenom.Text))
saveF.Parameters.AddWithValue("@Adresse", (Me.txtAdresse.Text))
saveF.Parameters.AddWithValue("@date_N", (Me.DateTimePicker1.Value.Date))
saveF.Parameters.AddWithValue("@Phone", (Me.MaskedTextBox2.Text))
saveF.Parameters.AddWithValue("@Sexe", Me.CboSexe.Text)
saveF.Parameters.AddWithValue("@GroupageS", Me.CboGs.Text)
saveF.Parameters.AddWithValue("@Fonction", (Me.txtFonc.Text))
saveF.Parameters.AddWithValue("@Assure", Me.CboAssure.Text)
saveF.Parameters.AddWithValue("@ATCD_P", (Me.txtATCD_P.Text))
saveF.Parameters.AddWithValue("@ATCD_F", (Me.txtATCD_F.Text))
saveF.Parameters.AddWithValue("@Photo", (ConvertToData(Photo.Image)))
cnn.Open()
saveF.ExecuteNonQuery()

MsgBox("Enregistrement fait avec Succée", vbMsgBoxRight, "Confirmation")
cnn.Close()
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
إن وجدت صعوبة أرفق المشروع