Sub auslesen()
  Try
    Dim adapter As New MySqlDataAdapter("SELECT * FROM steuerung WHERE" & _
      "'id'=?ID",sqlConnString )
    adapter.SelectCommand.Parameters.AddWithValue("?ID", 2)
    adapter.Fill(data)
  Catch ex As Exception
    System.Diagnostics.Debug.WriteLine("Error: " + ex.ToString())
    throw
  End Try
End Sub