dim mysql as string
dim str1 as string
dim number1 as longmysql = "select * from tablename where col1 = '" & str1 & "' and col2 = " & number1