'--SQL
        Try
            conn.Open()
            dr = cmd.ExecuteReader()
 
            Do While dr.Read()
                DataGridView1.Rows.Add("", _
                                       (dr("AUF_NR").ToString()), _
                                       (dr("AUF_POS").ToString()), _
                                       (dr("AUF_BEZEICHNUNG").ToString()), _
                                       (dr("AUF_POS_BEZ").ToString()), _
                                       (dr("SACHBEARBEITER").ToString()), _
                                       (dr("AUF_MONTDATUM").ToString()), _
                                       (dr("AUF_TERMIN_VERMERK").ToString()))
            Loop
            dr.Close()
 
'...Zeile löschen
            Dim i As Integer
 
            With DataGridView1
                For i = .Rows.Count To 1 Step -1
                    If .Rows(i).cells(2).value.tostring < 100 Then
                        .Rows.RemoveAt(i)
                    End If
                Nex i
 
        Catch ex As System.Exception
            MsgBox(ex.Message)
            Return
        End Try

mfg.

Dirk