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