Dim sConn As String
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=DBPfad;" & _
  "Persist Security Info=False;"
 
With Adodc1
  .CursorLocation = adUseClient
  .ConnectionString = sConn
  .RecordSource = "Tabellenname"
  .Refresh
End With
 
Text1.Text = Adodc1.Recordset.Fields("Spalte")
Text2.Text = Replace(Text1.Text, vbLf, ";")