Imports System.Data.OleDb
 
   Private Sub Connection_Click(ByVal sender As System.Object, _
                                 ByVal e As System.EventArgs) Handles _
                                 Connection.Click
 
   Dim con As OleDb.OleDbConnection = New OleDbConnection( _
     GetOleDBConnectionString)
 
   Using con
       Try
           con.Open()
       Catch ex As Exception
            MessageBox.Show(ex.Message & vbNewLine & "Wo: " & ex.StackTrace, _
                           "SQL Connection Fehler", MessageBoxButtons.OK, _
                           MessageBoxIcon.Error)
       End Try
   End Using
   End Sub
 
   Public Function GetOleDBConnectionString() As String
        Dim builder As New OleDbConnectionStringBuilder
        builder.ConnectionString = "Data Source=https://servername/pfad"
        builder.Add("Provider", "Microsoft.Jet.Oledb.4.0")
        builder.Add("Catalog", "tabellenname")
        builder.Add("User ID", "benutzername")
        builder.Add("Password", "passwort")
 
        Return builder.ConnectionString
    End Function