[NABILWARSAW]

الكود ده ممكن يساعدنى مع احترامى الكامل لارائكم 

بس غلط ممكن تعديله

كود :

     sqlstr = "Select min(date_ex),sanf_kem from store where ID_sanf =@pass"


           cmd = New OleDbCommand(sqlstr, con)
           cmd.Parameters.Add(New OleDbParameter("@pass", ad))
           con.Open()
           Dim dr As OleDb.OleDbDataReader = cmd.ExecuteScalar()
           If dr.Read() Then
               DateTimePicker1.Value = dr.Item(0)
               TextBox5.Text = dr.Item(1)
           End If