I Am { Robi Sahputra }

Global ConJual As New ADODB.Connection
=======================================================
Public IsiText As String
=======================================================
Public Sub BUKA_DATABASE()
Set ConJual = New ADODB.Connection
ConJual.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & App.Path & _
"\Penjualan.mdb;Mode = readwrite"
ConJual.Open
End Sub
=========================================================
Public Sub IsiDataText1()
IsiText = "0123456789"
End Sub
=========================================================
Public Sub IsiDataText2()
IsiText = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
End Sub