Á¬½ÓaccessÊý¾Ý¿â¼ìÑéÕ˺ÅÎÊÌâ

Public Class loginform1
   
    Dim strCon As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =8021.mdb"
    Dim strCom1 As String = " SELECT *  from loginname "
 
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        If ComboBox1.Text = "Íø°ÉÓû§" Then
            Form1.Show()
            Me.Hide()
        Else
Dim myConn As OleDbConnection = New OleDbConnection()
            myConn.ConnectionString = strCon
            myConn.Open()
            Dim strselect As String = "select * from loginname where username='" & Trim(ComboBox1.Text) & "'and pd='" & Trim(textbox1.Text) & "'"
            Dim da As New OleDbDataAdapter(strselect, myConn)
            Dim ds As New DataSet()
            da.Fill(ds)
            If ds.Tables(0).Rows.Count = 0 Then
                MsgBox("ÄãÊäÈëµÄÕʺŻòÃÜÂëÓÐÎó£¡", , &q