Private Sub artikel_eintragen()
        'Dim varMenge As String
        Dim vareingabe As String
        Dim varRef As String
        Dim varArt As String
        vareingabe = RightStr(TextBox1.Text, 22)
        varRef = FormatNumber(LeftStr(vareingabe, 11), 0, 0, , 0)
        varArt = FormatNumber(RightStr(vareingabe, 11), 0, 0, , 0)
 
        Dim frm_WG_Menge As New WG_Menge
        frm_WG_Menge.Show()
 
        'varMenge = InputBox("Menge?")
        'If varMenge = "" Or varMenge = "0" Then
        'TextBox1.Text = ""
        'Exit Sub
        'End If
 
        ListBox1.Items.Add(varRef & vbTab & vbTab & varArt & vbTab & vbTab & _
          varMenge)
 
        'Werte in 
        con.Open()
        Dim cmd As New SqlCeCommand("Insert into wareneingang (referenz," & _
          "artikel_nr, Menge, adrnr )  " _
                                    & "values ( " & varRef & ", " & varArt & "," & _
                                    "" & varMenge & ", " & varADRnr & " )", con)
        cmd.ExecuteNonQuery()
        dsWG.Clear()
        daWG.Fill(dsWG, "Wareneingang")
        DataGrid1.DataSource = dsWG.Tables("Wareneingang")
        con.Close()
 
        varMenge = 0
        varADRnr = 0
        TextBox1.Text = ""
        TextBox1.Focus()
 
    End Sub