01-01-2011

Mencoba Coding pada form yang telah dibuat kemarin dengan mengkoneksikan pada Sql server.
Kode Koneksi :

Public Sub main()
Dim rs As New Recordset
If ConnAPP.State = 1 Then ConnAPP.Close
ConnAPP.ConnectionString = "Provider=SQLOLEDB.1;Password=fan;Persist Security Info=True;User ID=fan;Initial Catalog=ujian;Data Source=."
ConnAPP.CursorLocation = adUseClient
ConnAPP.Open
frmDaftarSiswa.Show
End Sub