Not connected to the database
Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim str As String Private Sub Form_Load() con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\School Management System\Data\vihanga.mdb;ReadWrite Security Info=False"