Dim conn As New OleDb.OleDbConnection(str)
conn.Open()Dim sql As String = "select * from user_tbl where u_name='" & yhm.Text.ToString.Trim & "' and u_password='" & mm.Text.Trim & "'"
Dim cmd As New OleDb.OleDbCommand(sql, conn)
Dim datareader As OleDb.OleDbDataReader = cmd.ExecuteReaderIf datareader.Read = True Then
msgbox("登錄成功!")Else msgbox("登錄失敗!")
End Ifconn.Close()