Private Sub sevGridPflegeliste_CellDblClick(ByVal nRow As Long, ByVal nCol As _
  Long)
    With sevGridPflegeliste
        If nCol = 3 Then
            gldRowZeileAktuell = sevGridPflegeliste.Row
            frmTexteBearbeiten.Show
            frmTexteBearbeiten.txtArtikelNr.Text = _
              sevGridPflegeliste.Recordset.Fields("Artikelnr")
            frmTexteBearbeiten.cmdTextLaden_Click
            frmTexteBearbeiten.SetFocus
 
        'ElseIf nCol = 13 Then
            Shell "explorer /e,Z:\Daten\Artikel\" & _
              sevGridPflegeliste.Recordset.Fields("Artikelnr") & _
              "\OnlineShop\Bilder", vbNormalFocus
 
        ElseIf nCol("MO-Bild1") = "MO-Bild1" Then
           Shell "explorer /e,Z:\Daten\Artikel\" & _
             sevGridPflegeliste.Recordset.Fields("Artikelnr") & _
             "\OnlineShop\Bilder", vbNormalFocus
 
 
        End If
    End With
End Sub