Dim objconn As OleDbConnection
        Dim stringaconn As String
        Dim stringasql As String
        Dim objcomm As OleDbCommand
        stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=db.mdb"
        objconn = New OleDbConnection(stringaconn)
        objconn.Open()
        stringasql = "SELECT Password FROM Tabella2"
        objcomm = New OleDbCommand(stringasql, objconn)
        objcomm.ExecuteNonQuery()

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objconn As OleDbConnection
        Dim stringaconn As String
        Dim stringasql As String
        Dim objcomm As OleDbCommand
        stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=db.mdb"
        objconn = New OleDbConnection(stringaconn)
        objconn.Open()
        stringasql = "SELECT Password FROM Tabella2 WHERE ID='1'"
        objcomm = New OleDbCommand(stringasql, objconn)
        If TextBox1.Text = stringasql Then
            Me.Hide()
            Form2.Show()
        Else
            MsgBox("Password errata!")
        End If
        objconn.Close()
    End Sub
End Class