Dim cn As New ADODB.Connection
        Dim Cmd As New ADODB.Command
        Dim rs99 As ADODB.Recordset
        Rs99 = New ADODB.Recordset()
        rs99.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        rs99.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
        Dim Rs2 As New ADODB.Recordset
        cn = New ADODB.Connection()
        Dim i As Integer = Form1.DataGridView2.SelectedRows(0).Index
        Dim AIArtikelnummer As String = Form1.DataGridView2.Rows(I).Cells( _
          1).Value
        cn.Open(My.Settings.dbname, My.Settings.dbuser, My.Settings.dbpass)
 
        cmd = New ADODB.Command()
        With cmd
            .Name = "QueryCustomers"
            .CommandText = "SELECT * FROM TARTIKEL WHERE CARTNR = '" & _
              AIArtikelnummer & "'"
            .CommandType = ADODB.CommandTypeEnum.adCmdText
            .Parameters.Append(.CreateParameter("DiscountIn", _
              ADODB.DataTypeEnum.adDouble, _
              ADODB.ParameterDirectionEnum.adParamInput))
            .ActiveConnection = cn
            rs99 = New ADODB.Recordset()
            rs99.CursorLocation = ADODB.CursorLocationEnum.adUseClient
            rs99.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
            cn.QueryCustomers(0, rs99)
            rs99.ActiveConnection = Nothing
            cmd.ActiveConnection = Nothing
        End With