Dim myConnection As SqlConnection = New SqlConnection("server=(" & _
  "local)\VSdotNET;uid=Admin;pwd=;database=" + LStr_DatenbankName)
Dim mySqlDataAdapter As SqlDataAdapter = New SqlDataAdapter("select * from" & _
"ADREVA order by schluessel", myConnection)