Public Class APPLES
    Dim DB As ADODB.Connection
    Dim RC As ADODB.Recordset

    Private Sub CMD_BACK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMD_BACK.Click
        Me.Close()
    End Sub
    Sub STRING_SQL()
        Dim SQL As String = ""
        SQL = SQL & " SELECT SERIAL, ID_NUM, FULLNAME, ARIA_ARIACODE, ADDRESS, TELNO, MOBIL, SEX_SEXCODE, DOB, BALANCE, EDU_APPLE, STATUS_MSTATUS, Archive, "
        SQL = SQL & " NOTES, NOTES_HEALTH"
        SQL = SQL & " FROM(PATI_MAIN)"

    End Sub

    Sub CONNICTION_STRING_DB2002_XP()

        Dim ST0 As String = ""
        DB = New ADODB.Connection
        ST0 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\patients_sys\pati_2005.mdb;Persist Security Info=False"
        DB.Open(ST0)


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        CONNICTION_STRING_DB2002_XP()
    End Sub
End Class