sql = " Select * from Rohstoffe where Rohstoff_Nr like '" & flexgrid.TextMatrix( _
  x, 0) & "'"
               rsrohstoffe2.Open sql, Con, adOpenKeyset, adLockOptimistic, _
               adCmdText
                .Selection.TypeText flexgrid.TextMatrix(x, 0) ' 
                ' rsrohstoffe2.Fields(1)
                .Selection.MoveRight
 
                If IsNull(rsrohstoffe2.Fields(5)) = False Then
                 [u] .Selection.TypeText rsrohstoffe2.Fields(5)
                End If
 
                If IsNull(rsrohstoffe2.Fields(6)) = False Then
                  [u]  .Selection.TypeText ", " & rsrohstoffe2.Fields(6) 
                End If