vb.net 连接SQL数据库

     '在引用里添加ADODB

Public vscn As ADODB.Connection

Public SQLString As String

SQLString = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用" & _

"户;Initial Catalog=数据库名;Data Source=服务器名"

           

        vscn = New ADODB.Connection

        With vscn

            .Mode = ADODB.ConnectModeEnum.adModeReadWrite

            .CursorLocation = ADODB.CursorLocationEnum.adUseClient

            .ConnectionString = SQLString

            .ConnectionTimeout = 60

            .Open()

        End With