Dim picnummer As New SQLiteDB.Recordset
picnummer = db.Execute("SELECT picnr FROM spielfeld WHERE nummer = " & i)

Select Case picnummer
               Case 100
                ...
               Case 101
               ...
End Select

Dim conv_picnummer As String

conv_picnummer = CStr(picnummer)