[RESOLVED] adodc string user-level security

How do I use adodc to connect to a user-level security database(access2000)? a user-level security database is set by user-level security wizard and have name "simon" password "1234"

I have try it from adodc property to build a connection string :

Provider=microsoft.jet.OLEDB.40.datasource=c:\data\security.mdw;persistsecurityinfo=false

when it run come out with:adodc1.cannot start your application. The workgroup information files is missing or open exclusively by another user.

stop at this line :adodc1.refresh (the data can't go to datagrid on the form)

I already search the forum for this probs. but no result. If anyone can help is greatly appreciated. thanks in advance

VB Code:

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
Dim Total As Double
 
Private Sub cmdKeluar_Click()
 
Unload Me
 
Call Menu_Bisa
 
End Sub
 
 
Private Sub Form_Load()
Dim Koneksi As String
 
'Driver ODBC Connection String
Koneksi = "FILE NAME=C:\Program Files\" & _
"Common Files\ODBC\Data Sources\dbinventori.dsn"
 
 
cnn.Open Koneksi, "simon", "1234"
 
Call Detail
 
cmdtambah.Enabled = False
cmdsimpan.Enabled = False
cmdhapus.Enabled = False
cmdbatal.Enabled = False
 
Total = 0
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 
cnn.Close
 
Set cnn = Nothing
 
End Sub
 
Private Sub mseHarga_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    SendKeys vbTab
End If
 
End Sub
 
Private Sub txtKode_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    
    SendKeys vbTab
Else
 
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    
End If
 
End Sub
 
Private Sub mseJumlah_LostFocus()
Dim TotalBrg As Double
 
If txtkodebarang.Text <> "" Then
    
    cnn.BeginTrans
    
    TotalBrg = Val(mseharga.Text) * Val(msejumlah.Text)
    
    Total = Total + TotalBrg
    
    msql = "Insert into tbNotaBeliDetail(NoNota,KodeBarang," & _
        " NamaBarang,HargaBeli,Satuan,Jumlah,Total)" & _
        " Values('" & txtnota.Text & "','" & txtkodebarang.Text & "', " & _
        " '" & txtnamabarang.Text & "'," & Val(mseharga.Text) & "," & _
        " '" & txtsatuan.Text & "'," & Val(msejumlah.Text) & "," & _
        " " & Val(TotalBrg) & ")"
            
    cnn.Execute (msql)
    
    cnn.CommitTrans
    
    Call Detail
    
    txtkodebarang.SetFocus
    
    txtkodebarang.Text = ""
    txtnamabarang.Text = ""
    txtsatuan.Text = ""
    mseharga.Text = ""
    msejumlah.Text = ""
    
    msesubtotal.Text = Total
    msetotal.Text = Total
    
End If
 
End Sub
 
Private Sub msePotongan_LostFocus()
 
msetotal.Text = Total - Val(msepotongan.Text)
 
End Sub
 
Private Sub txtKodeBarang_LostFocus()
Dim msql As String
 
If txtkodebarang.Text <> "" Then
    
    msql = "select * from tbBarang " & _
        " where kode='" & txtkodebarang.Text & "'"
    
    Set rs = cnn.Execute(msql)
    
    If Not rs.EOF Then
        txtnamabarang.Text = rs.Fields("Nama")
        mseharga.Text = rs.Fields("HargaBeli")
        txtsatuan.Text = rs.Fields("Satuan")
    End If
    rs.Close
    
End If
 
End Sub
 
Private Sub txtKodePemasok_LostFocus()
Dim msql As String
 
If txtkodepemasok.Text <> "" Then
    
    msql = "select * from tbpemasok " & _
        " where kode='" & txtkodepemasok.Text & "'"
    
    Set rs = cnn.Execute(msql)
    
    If Not rs.EOF Then
        txtnamapemasok.Text = rs.Fields("Nama")
        
    End If
    rs.Close
    
End If
 
End Sub
 
Private Sub txtNota_LostFocus()
Dim msql As String
 
If txtnota.Text <> "" Then
    cnn.BeginTrans
    
    msql = "select * from tbNotaBeli " & _
        " where NoNota='" & txtnota.Text & "'"
    
    Set rs = cnn.Execute(msql)
    
    If Not rs.EOF Then
        
        dptanggal.Value = rs.Fields("Tanggal")
        txtkodepemasok.Text = rs.Fields("KodePemasok")
        txtnamapemasok.Text = rs.Fields("NamaPemasok")
        txtketerangan.Text = rs.Fields("Keterangan")
        msesubtotal.Text = rs.Fields("SubTotal")
        msepotongan.Text = rs.Fields("Potongan")
        msetotal.Text = rs.Fields("TotalAkhir")
        
        Call Detail
        
        txtnota.Enabled = False
        txtkodepemasok.Enabled = False
        txtnamapemasok.Enabled = False
        txtketerangan.Enabled = False
        msesubtotal.Enabled = False
        msepotongan.Enabled = False
        msetotal.Enabled = False
        
        txtkodebarang.Enabled = False
        txtnamabarang.Enabled = False
        txtsatuan.Enabled = False
        mseharga.Enabled = False
        msejumlah.Enabled = False
        
        cmdtambah.Enabled = True
        cmdhapus.Enabled = True
                       
    Else
             
        cmdsimpan.Enabled = True
        cmdbatal.Enabled = True
        
    End If
 
    rs.Close
    
    cnn.CommitTrans
 
End If
 
End Sub
 
Private Sub txtNama_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    
    SendKeys vbTab
Else
 
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    
End If
 
End Sub
 
Private Sub mseJumlah_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    SendKeys vbTab
End If
 
End Sub
 
Private Sub msePotongan_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    SendKeys vbTab
End If
 
End Sub
 
Private Sub mseSubTotal_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    SendKeys vbTab
End If
 
End Sub
 
Private Sub mseTotal_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    SendKeys vbTab
End If
 
End Sub
 
Private Sub txtKeterangan_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    
    SendKeys vbTab
Else
 
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    
End If
 
End Sub
 
Private Sub txtKodeBarang_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    
    SendKeys vbTab
Else
 
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    
End If
 
End Sub
 
Private Sub txtKodePemasok_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    
    SendKeys vbTab
Else
 
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    
End If
 
End Sub
 
Private Sub txtNamaBarang_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    
    SendKeys vbTab
Else
 
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    
End If
 
End Sub
 
Private Sub txtNamaPemasok_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    
    SendKeys vbTab
Else
 
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    
End If
 
End Sub
 
Private Sub txtNota_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    
    SendKeys vbTab
Else
 
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    
End If
 
End Sub
 
Private Sub txtSatuan_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
    
    SendKeys vbTab
Else
 
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    
End If
 
End Sub
 
Sub Kosong()
 
txtnota.Text = ""
txtkodepemasok.Text = ""
txtnamapemasok.Text = ""
txtketerangan.Text = ""
msesubtotal.Text = ""
msepotongan.Text = ""
msetotal.Text = ""
 
txtkodebarang.Text = ""
txtnamabarang.Text = ""
txtsatuan.Text = ""
mseharga.Text = ""
msejumlah.Text = ""
 
Total = 0
 
End Sub
 
Sub Detail()
Dim msql As String
 
msql = "select KodeBarang,NamaBarang," & _
    " HargaBeli,Jumlah, Total" & _
    " From tbNotaBeliDetail " & _
    " Where NoNota='" & txtnota.Text & "'"
 
Adodc1.RecordSource = msql
Adodc1.Refresh [B]'Stop here[/B] 
 
dgdetail.Refresh
 
End Sub