Skip to content

Instantly share code, notes, and snippets.

@vbcupu
Created October 27, 2017 15:34
Show Gist options
  • Save vbcupu/60e05eb8e6f7941ba013c3b9c44e471e to your computer and use it in GitHub Desktop.
Save vbcupu/60e05eb8e6f7941ba013c3b9c44e471e to your computer and use it in GitHub Desktop.
artikel vb 6 step 2
'Module modUtil
Public Function OpenConnection()
Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Project\latihan1\mahasiswa.mdb;Persist Security Info=False"
dbconn.CursorLocation = adUseClient
dbconn.Open
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment