дайте плиз какой-нибудь код на Basic

Бейсик, как он есть: 10 GOTO 10

Прям любой?)))))

Ну, вот, базу данных открывает под NET

Imports System.Data.OleDb
Public Class Form1
Dim conString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|\mydb.accdb"
Dim conn As New OleDb.OleDbConnection(conString)

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim p() As OleDbParameter = {New OleDbParameter()}

'выборка1()
ReadData("SELECT * FROM mytable", conn, p)

'выборка2
'p = {New OleDbParameter("@UserName", "vova")}
'ReadData("SELECT * FROM mytable WHERE UserName=@UserName", conn, p)

'удаление
'p = {New OleDbParameter("@UserName", "kiril")}
'ModifyData("DELETE * FROM mytable WHERE UserName=@UserName", conn, p)

'вставка
'p = {New OleDbParameter("@UserName", "Kot"),
' New OleDbParameter("@Password", "11111")}
'ModifyData("INSERT INTO mytable (UserName,[Password]) VALUES (@UserName,@Password)", conn, p)

'обновление (также важен порядок параметров)
'p = {New OleDbParameter("@UserName", "Valera"),
' New OleDbParameter("@Password", "7778"),
' New OleDbParameter("@id", "7")}
'ModifyData("UPDATE mytable SET UserName=@UserName,[Password]=@Password WHERE ID=@id", conn, p)
End Sub

Function ModifyData(query As String, conn As OleDbConnection, p() As OleDbParameter)
Dim cmd As New OleDbCommand(query, conn)
cmd.Parameters.AddRange(p)
conn.Open()
ModifyData = cmd.ExecuteNonQuery()
conn.Close()
cmd.Dispose()
End Function

Function ReadData(query As String, conn As OleDbConnection, p() As OleDbParameter)
Dim cmd As New OleDbCommand(query, conn)
cmd.Parameters.AddRange(p)
conn.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader()
While reader.Read
MsgBox(reader.GetValue(1))
End While
ReadData = reader.HasRows
reader.Close()
conn.Close()
cmd.Dispose()
End Function

End Class