Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Datum_von As String, Datum_bis As String
        Datum_von = Me.Datum_von.Value
        Datum_bis = Me.Datum_bis.Value
        Me.SELECT_STATEMENT.CommandText = "SELECT BEISPIELVIEW.* FROM" & _
          "BEISPIELVIEW WHERE (BELADETAG >=Datum_von) AND (SDGBELADETAG" & _
          "<=Datum_bis)"
        MEINDATENADAPTER.Fill(MEINDATASET.MEINDATENADAPTER)
    End Sub