[أم هادي]

تم التعديل ويتم التنفيذ ولكن عند فتح القاعدة لم يتم اضافة أي سجل

كود :

Imports System.Data.OleDb
Public Class Form1

    Dim saveinto As New OleDb.OleDbCommand
    Dim constr As String = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\DB.mdb"
    Dim con As New OleDbConnection(constr)
    Dim dataset1 As New DataSet
    Dim sql As String = "select * from usres"


  

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          If TextBox1.Text = "" And TextBox2.Text = "" Then
            MessageBox.Show("فضلا ادخل اسم المستخدم وكلمة المرور", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        saveinto.Connection = con
        saveinto.CommandType = CommandType.Text
        saveinto.CommandText = "select * from usres where username='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'"
        con.Open()
        saveinto.ExecuteNonQuery()
        con.Close()
        MsgBox("تسجيلك تم")

        TextBox1.Clear()
        TextBox2.Clear()
        Form3.Show()

    End Sub

    
End Class