why doesnt this work?

[TLawson]

Dim addcards As String
Dim cardnum As Integer
Dim Peopleid As Integer
cardnum = TextBox4.Text
Peopleid = TextBox5.Text
addcards = "INSERT INTO Cards (Card_Number, People_ID) VALUES (" + cardnum + ", " + peopleid + ")"
OleDbCommand3.CommandText = addcards

but this does

Dim addcards As String
Dim cardnum As Integer
Dim Peopleid As Integer
cardnum = TextBox4.Text
Peopleid = TextBox5.Text
addcards = "INSERT INTO Cards (Card_Number, People_ID) VALUES (" + "1014" + ", " + "1528" + ")"
OleDbCommand3.CommandText = addcards

I keep getting the error of:

An unhandled exception of type 'System.InvalidCastException' occurred in microsoft.visualbasic.dll

Additional information: Cast from string "INSERT INTO Cards (Card_Number, " to type 'Double' is not valid.

[MrPolite]

That's the bad habit of VB6. You cant just add a number to a string, you have to convert it first.
for the first part:

Dim addcards As String
        Dim cardnum As Integer
        Dim Peopleid As Integer
        cardnum = CInt(TextBox4.Text)   ' cardNum is an integer. Use the CInt() function to 
                                        ' convert the string to integer.
        Peopleid = CInt(TextBox5.Text)  ' same here

Umm you just have to make sure that the textboxes contain numbers. You can use the Val() function too. It will only return the part of the string that contains numbers. Then you have to convert that to integer. (ie: Cint(Val(someString)) )



for the last part, you can either use the ToString method to convert your numbers to integer, or you can use the CStr() function. Also I rather use the & symbol rather than + when dealing with strings

addcards = "INSERT INTO Cards (Card_Number, People_ID) VALUES (" & cardnum.ToString() & ", " + Peopleid.ToString() & ")"

HTH