altering table using dsn connection

hi all i need help for dsn connection i wrote code like below but
it gives ERROR: as type miss match

dim ds as database
dim rs as recordset
dim var as string
dim str as string

var=com1.text

str="odbc;database=jay;dsn=details"

set db=opendatabase("",true,false,str)
//error comes here
set rs=db.openrecordset("select * from vmbs",dbopendynaset)

sql="alter table vmbs drop column [" & var & "]"

db.excute sql

db.close

I can't say for sure that this is all of your problem... but first thing to try is make sure you dim SQL as a String, (unless Option Explicit is off, or SQL is a global variable).

I would go into debug mode, and make sure that your variable "var" is picking up the proper string.

Also - what is com1? Is it a text box, or a combo box? Are you using VB6 or VB.Net?