[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته

PHP كود :

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

            Dim sql As String = " Select *                  " & _
                                "   From [users]            " & _
                                "  Where [User] = @User     " & _
                                "    And [Pass] = @Pass     "
            Dim comm As New OleDbCommand(sql, con)
            comm.Parameters.AddWithValue("@User", Me.TextBox1.Text)
            comm.Parameters.AddWithValue("@Pass", Me.TextBox2.Text)

            Dim data As New OleDbDataAdapter(comm)
            ds.Clear()
            data.Fill(ds)

            If ds.Tables(0).Rows.Count = 0 Then
                MsgBox("Please check username or Password")
            Else
                check_premission()
                Me.Dispose()
                Main.Show()
            End If

        End Sub 


السلام عليكم ورحمة الله وبركاته