建议看一下ADO.NET及SQL语句的相关知识

Imports System.IO
Imports System.Data
Imports System.Data.OleDb

Public Class form1
    Inherits System.Windows.Forms.Form
    Dim mycommand As OleDbCommand
    Dim mydatareader As OleDbDataReader
    Private Sub Txt_Username_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt_Username.LostFocus
        If Txt_Username.Text = "" Then
            MsgBox("请输入用户名", MsgBoxStyle.Information, "警告")
            Exit Sub
        End If
    End Sub

    Private Sub btn_ok_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_ok.Click
        Dim path As String = Directory.GetCurrentDirectory()
        If Txt_Username.Text = "" Then
            MsgBox("请输入用户名", MsgBoxStyle.Information, "警告")
            Exit Sub
        ElseIf Txt_pwd.Text = "" Then
            MsgBox("请输入密码", MsgBoxStyle.Information, "警告")
            Exit Sub
        End If
        Dim myconnection As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\student0.mdb")
        myconnection.Open()
        Dim s As String = "select * from 管理员表 where username='" & Trim(Txt_Username.Text).Replace("'", "''") & "' and password='" & Trim(Txt_pwd.Text).Replace("'", "''") & "'"
        'If myconnection.State = ConnectionState.Closed Then myconnection.Open()
        mycommand = New OleDbCommand(s, myconnection)
        mydatareader = mycommand.ExecuteReader()

   


        If mydatareader.Read = False Then
            MsgBox("用户名不存在或者密码错误", 0 + 48, "提示")
        Else
            Me.Hide()
            Form2.Show()

        End If
        mydatareader.Close()
        myconnection.Close()
    End Sub
    Private Sub btn_cancel_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_cancel.Click
        End '或是Application.Exit()
    End Sub

    Private Sub LoginFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.CenterToScreen()
    End Sub
End Class