module

[tjbarr]

debugging VB
I need help debugging this

Option Compare Database

Private Sub cmdSuppr_Click()
Dim db As Database

Dim strSQL As String
Set db = CurrentDb

Dim year As Integer
Dim var_code As Integer
Dim sic As String

For year = 1975 To 2000

bls = "bls" & year

strSQL = "INSERT INTO tbl_bls_cnty_sup ( fip_code, sic, var_code, " & bls & " )" &
"SELECT tbl_1_bls_cnty_2dig.fip_code, tbl_1_bls_cnty_2dig.sic, tbl_1_bls_cnty_2dig.var_code, tbl_1_bls_cnty_2dig.[" & bls & "]" &
"FROM tbl_1_bls_cnty_2dig" & _
"WHERE (((tbl_1_bls_cnty_2dig.[" & bls & "])='-1'));"

db.Execute (strSQL)

Next year

MsgBox ("Complete")

End Sub

[TheIceman5]

yes well i can see you are a new beginner, but vb forum would be better.
Also, debug? whats the problem?? we cant help if we dont know your problem, just use the F8 key, you got 40 posts, you should know better than to just post code without an error.