[abo.alaa315]

   Public Sub adddin(cod1 As String, cod2 As String, qimaloh As String, qimaalih As String, infor As String, mol As String, dat1 As String, dat2 As String, halas As String)

        Try

            opdbsql()

            Class1.cmsq.Connection = Class1.cnsq

            Class1.cmsq.CommandType = CommandType.Text

            Class1.cmsq.CommandText = "insert into harka  ([cod],[qimaloh],[qimaalih],[info],[mol],[dat],[datsdad],[halatsada],[codhark]) values ('" + cod1 + "','" + qimaloh + "','" + qimaalih + "','" + infor + "','" + mol + "','" & dat1 & "','" & dat2 & "','" + halas + "','" + cod2 + "')"

            Class1.cmsq.ExecuteNonQuery()

            MsgBox("تمت عملية الاضافة")

            Class1.cnsq.Close()

            Class1.savcomp = True

        Catch ex As Exception

            MsgBox(ex.Message)

            Class1.savcomp = False

        End Try

    End Sub

End Module

ده الموديول الي عاملة عشان أحفظ بيه سجل داخل قاعة بيانات أكسس وبتظهر رسالة تفيد

Conversion failed when converting date and/or time from character string

أيه الخطأ .. وأيه الحل

ولكم مني فائق الاحترام والتقدير