In the table, change BinNum to short text and use revised function:
Code:
Public Function fcnBuildTable()
Dim sSQL As String
Dim nKey As Long
Dim sBin As String
Dim nBin As Long
Dim nCol As Long
Dim nCom As Long
Dim nRow As Long
For nBin = 1 To fBins
sBin = "R" & nBin
For nRow = 1 To fRows
For nCol = 1 To fCols
For nCom = 1 To fComs
sSQL = "INSERT INTO tblBins (BinNum, RowNum, ColNum, CompNum) VALUES ('" & sBin & "', " & nRow & ", " & nCol & ", " & nCom & ")"
'Debug.Print sSQL
CurrentDb.Execute sSQL, dbFailOnError
Next nCom
Next nCol
Next nRow
Next nBin
DoCmd.OpenTable "tblBins"
DoCmd.SelectObject acTable, "tblBins"
DoCmd.Requery
DoCmd.SelectObject acForm, "frmBuild"
End Function
EDIT: Sorry, just noticed that your wanted a ROW to be a string. Same modification applies, just adjust for row instead of bin.