→→→データベースに接続／切断する

Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection
'接続文字列を作成する
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &
                               "Data Source=C:\**.mdb;" &
                               "Persist Security Info=False"
'接続を開始する
cn.Open()
'処理を行う
MessageBox.Show("接続中です","処理通知")
'接続を終了する
cn.close()

ExecuteScalarメソッド
結果を1つだけObject型で返します
＊レコード数のほか、集計値などの単一の結果を取得するときに使います