[RESOLVED] Insert data = 0

[thedeathnotes210x]

Dear SamOscarBrown,

I am trying to write If Statement but it is not running

Dim diem as Double
If (ws.Range("F" & i).Value = NULL) Then
diem = 0
Else
diem = ws.Range("F" & i).Value
End If

con.Execute "INSERT INTO SV([No],MSSV,MaLop,Ho,Ten,Diem,HanhKiem,[User],Status,[Date]) VALUES ('" & rs("MaxField") + 1 & "','" & ws.Range("C" & i).Value & "','" & ws.Range("A" & i).Value & "','" & ws.Range("D" & i).Value & "','" & ws.Range("E" & i).Value & "','" & ws.Range("F" & i).Value & "','" & tenUser & "','" & "-1" & "','" & NgayGioDangNhap & "')"