попробуйте написать этот код.
1 - добавьте новый элемент (класс), переименуйте его и измените его следующим образом:
public class ConnectDB
*
*
*
End Class
, после чего вы записываете код внутри.
Imports System.Data.SqlClient
Public Class ConnectDb
Public ServerName As String
Public Dbname As String
Public usrSQL As String
Public PwdSQL As String
Dim Conn As New SqlConnection("Data Source=" + ServerName + "; Initial Catalog=" + Dbname + "; User Id =" + usrSQL + "; Password=" + PwdSQL + ";")
Sub OpenCn()
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
End Sub
Sub CloseCn()
If Conn.State <> ConnectionState.Closed Then
Conn.Close()
End If
End Sub
End Class
это код блока для подключения .. та же концепция, что и для подключения к MS Access, но вместо SQLConn вы добавите OLEConnection и тоже самое, что и команда (OLECommand). Плюс, некоторая разница внижние кавычки в строке подключения .. также следует импортировать библиотеку с именем:
Imports System.Data.OleDb
вместо
Imports System.Data.SqlClient