object not defined/odbc with msaccess

[odbcmsaccess]

hi

i 'm writng a code using msaccess with odbc.
my dsn name is htgry
i want to insert data eneterd in text fields to a table named qwer on clicking a command button.

code as follows

Private Sub Command14_Click ()


Dim dbLocation 'Location of our Access database file
Dim sSQL 'Our SQL query

dbLocation = "C:\Documen ts and Settings\Admini strator\Desktop "
Set objADO = dbLocation.Crea teObject("ADODB .Connection") 'Create an ADO connection to a database //// line1

objADO.Open "htgry" //// line2
objADO.Open dbLocation 'Open the database
sSQL = "INSERT INTO qwer ( name , amount ) VALUES('" & Text7 & "' , '" & Text9 & "')" 'Set our SQL query
objADO.Execute (sSQL) 'Execute this SQL query


objADO.Close
Set objADO = Nothing

End Sub

it is not being executed and error is "object not defined " at line 1 and line 2

kindly make me complete this programme error free.
with anticipation

[MMcCarthy]

The syntax for creating DSN connections is as follows:

 
 
Dim conConnector As ADODB.Connection
 
    Set conConnector = New ADODB.Connection
 
    conConnector.Open "DSN=htgry;UID=UserName;PWD=Password;"
 
    conConnector.Close
    Set conConnector = Nothing
 
 
 

[odbcmsaccess]

ihav euse dyour code
following error occured
run time error 2147467259(8000 4005)
[Microsoft]ODBC microsoft access driver] the database has been placed in a state by an unknown user that prevents it from being opened or locked
dsn
code:

Dim dbLocation 'Location of our Access database file
Dim sSQL 'Our SQL query
Dim conConnector As ADODB.Connectio n

Set conConnector = New ADODB.Connectio n

conConnector.Op en "DSN=htgry;UID= UserName;PWD=Pa ssword;"
dbLocation = "C:\Documen ts and Settings\Admini strator\Desktop \dbd"
conConnector.Op en dbLocation
sSQL = "INSERT INTO Table1 ( name , amount ) VALUES('" & Text7 & "' , '" & Text9 & "')" 'Set our SQL query
conConnector.Ex ecute (sSQL) 'Execute this SQL query
conConnector.Cl ose
Set conConnector = Nothing

what is password, userid?
hoping reply

The syntax for creating DSN connections is as follows:

 
 
Dim conConnector As ADODB.Connection
 
    Set conConnector = New ADODB.Connection
 
    conConnector.Open "DSN=htgry;UID=UserName;PWD=Password;"
 
    conConnector.Close
    Set conConnector = Nothing
 
 
 

[odbcmsaccess]

ihav euse dyour code
following error occured
run time error 2147467259(8000 4005)
[Microsoft]ODBC microsoft access driver] the database has been placed in a state by an unknown user that prevents it from being opened or locked
dsn htgry, filename dbd, table name Table1.
code:

Dim dbLocation 'Location of our Access database file
Dim sSQL 'Our SQL query
Dim conConnector As ADODB.Connectio n

Set conConnector = New ADODB.Connectio n

conConnector.Op en "DSN=htgry;UID= UserName;PWD=Pa ssword;"
dbLocation = "C:\Documen ts and Settings\Admini strator\Desktop \dbd"
conConnector.Op en dbLocation
sSQL = "INSERT INTO Table1 ( name , amount ) VALUES('" & Text7 & "' , '" & Text9 & "')" 'Set our SQL query
conConnector.Ex ecute (sSQL) 'Execute this SQL query
conConnector.Cl ose
Set conConnector = Nothing

what is password, userid?
hoping reply

The syntax for creating DSN connections is as follows:

 
 
Dim conConnector As ADODB.Connection
 
    Set conConnector = New ADODB.Connection
 
    conConnector.Open "DSN=htgry;UID=UserName;PWD=Password;"
 
    conConnector.Close
    Set conConnector = Nothing
 
 
 

[MMcCarthy]

You said you created a DSN to another database. Does that database have a userid and password? If not then just put "DSN=htgry; "

[odbcmsaccess]

hello

i used ur code
error: not a valid password
wat is password and how to overcome this error

pls reply

The syntax for creating DSN connections is as follows:

 
 
Dim conConnector As ADODB.Connection
 
    Set conConnector = New ADODB.Connection
 
    conConnector.Open "DSN=htgry;UID=UserName;PWD=Password;"
 
    conConnector.Close
    Set conConnector = Nothing
 
 
 

[NeoPa]

hello

i used ur code
error: not a valid password
wat is password and how to overcome this error

pls reply

It sounds like you need to have a word with your IT department.
Ask them to explain this concept to you and give you the details you need to access via this DSN.