Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source="C:\IrgendeinVerzeichnis\DeineDatenbank.mdb")
 
Dim strName As String=""
 
 Try
            cn.Open()
            With cn.CreateCommand()
                .CommandText = "SELECT Name FROM DeineDatenbanktabelle WHERE" & _
                  "ID=" & DeineID
                strName=.ExecuteNonQuery()
                .Dispose()
            End With
 
            cn.Close()
        Catch ex As Exception
 
        End Try
 
DeineTextBox.Text=strName

EALA FREYA FRESENA