Cómo conectarse a una base de datos

Imports System.Data.SqlClient
 
class adobasic
 
    public shared Sub Main()
    
        Try
            ' cadena de conexión
            Dim connectString As String = "database=test;server=am01;User ID=samfisher;pwd=echelon"
            ' Objeto connection
            Dim connection As SqlConnection = new SqlConnection(connectString)
            ' obertura
            connection.Open()
            ' cierre
            connection.Close()
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine(ex.ToString())
    End Try
End Sub
   
End Class