Dim ds As DataSet
Dim da As OleDbDataAdapter
Dim strSQL As String
Dim q As Integer
Dim fw As New StreamWriter("ausgabe.txt")
Dim objConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=datenbank.mdb;")
 
objConnection.Open()
 
strSQL = "SELECT Field AS UrlFound FROM " _
& " Table WHERE Field LIKE 'http%'"
Dim cmd As New OleDbCommand(strSQL, objConnection)
da = New OleDbDataAdapter()
da.SelectCommand = cmd
ds = New DataSet()
da.Fill(ds, "UrlFound")
For q = 0 To ds.Tables("UrlFound").Rows.Count - 1
    fw.WriteLine(ds.Tables("UrlFound").Rows.Item(q))
Next