Dim DBase As Database

Dim RBase As Recordset



Set DBase = OpenDatabase("DB Name")

Set RBase = DBase.OpenRecordset("Table name")

 Private Sub cmdcnsearch_Click()

sql = "Select companyname,companysize,country,city from cooperate where CSTR(accnumber)='" & txtcnsearch.Text & "'"

Set conn = New Connection

Set r = New Recordset

conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Subscriptions Project\subscriptions.mdb"

With r

.Open sql, conn, adOpenKeyset, adLockOptimistic, adCmdText

If .EOF Then

MsgBox "Record not found", vbExclamation

txtcnsearch.SelStart = 0

txtcnsearch.SelLength = Len(txtcnsearch.Text)

txtcnsearch.SetFocus

Exit Sub

'to populate the field

Else

   txtccname = r!CompanyName

   txtcsize.Text = r!companysize

   txtcountry.Text = r!country

   txtcity.Text = r!city

    r.Close

    

End If

End With

End Sub

Sub emailTmp()

On Error Resume Next

Dim template

Dim newItem 'As Mail

Dim Outlook 'As Outlook.Application

Dim aTo

Dim inputSheet1

Dim myRecipient



Set inputSheet1 = Worksheets("Sheet1")

Set inputSheet2 = Worksheets("Sheet2")

aTo = inputSheet2.Cells(2, 1)

'Debug.Print aTo



Set template = inputSheet1.Cells(5, 2)

'Debug.Print template



Set Outlook = CreateObject("Outlook.Application")

Set newItem = Outlook.CreateItemFromTemplate("H:\apps\xp\Desktop\My Projects\DN.oft")



Set myRecipient = newItem.Recipients.Add(aTo)



'Debug.Print newItem.Recipients

newItem.Save

newItem.Display

      

       

Set newItem = Nothing



On Error GoTo 0



End Sub

Public CrxApp As CRAXDRT.Application

Public CrxRep As CRAXDRT.Report

Public crxSubreport As CRAXDRT.Report

Public crxSubreportObject As SubreportObject

Public crxDatabase As CRAXDRT.Database

Public crxDatabaseTables As CRAXDRT.DatabaseTables

Public crxDatabaseTable As CRAXDRT.DatabaseTable

Public crxSections As CRAXDRT.Sections

Public crxSection As CRAXDRT.Section

Public CRXReportObject As Object



Public Sub DataLoc(DataName As String, REP As String)

    Dim fi As String

    

    

    Set CrxApp = New CRAXDRT.Application

    fi = App.Path & "\" & REP & ".rpt"

    Set CrxRep = CrxApp.OpenReport(fi)



    Set crxSections = CrxRep.Sections

    

    For Each crxSection In crxSections

        For Each CRXReportObject In crxSection.ReportObjects

           If CRXReportObject.Kind = crSubreportObject Then

             Set crxSubreportObject = CRXReportObject

             Set crxSubreport = crxSubreportObject.OpenSubreport

             Set crxDatabase = crxSubreport.Database

             Set crxDatabaseTables = crxDatabase.Tables

             

             For Each crxDatabaseTable In crxDatabaseTables

    'If you are using a  Native connection to PC database

    crxDatabaseTable.Location = App.Path & "\" & DataName & ".mdb"

    

             Next

             

             Set crxSubreport = Nothing

           End If

        Next

    Next

    

    

    'Set crxDatabase = Nothing

    'Set crxDatabaseTable = Nothing

    'Set crxDatabaseTables = Nothing

    'Set crxSections = Nothing

    'Set crxSection = Nothing

    'Set crxSubreportObject = Nothing

   ' Set crxReport = Nothing

   ' Set crxApplication = Nothing

End Sub

Private Sub Form_Load()

Dim conn As Connection

Dim rs As Recordset

Set conn = New Connection

conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Subscriptions Project\subscriptions.mdb"

Set rs = New Recordset

With rs

.ActiveConnection = conn

.LockType = adLockOptimistic

.Source = "select * from individual"

.Open

End With

End Sub

Private Sub cmdsave_Click()

rs.Fields("firstname") = txtfname.Text

End Sub

DATA 32

'DATA is Name, kingdom, p for photosynthesis, s for single celled

DATA Smeglitious nobilis,monera,,s

DATA Computicus garianus,monera,,s

DATA Fastidyus hassica,monera,p,s

DATA Diminutia scotia,protista,p,s

DATA Strongellica sphinctius,protista,,s



DIM org$(5, 4)

ReadOrganismData:

  READ d

    FOR organisms = 1 TO d

        FOR organisminfo = 1 TO 4

          READ org$(organisms, organisminfo)

        NEXT organisminfo

    NEXT organisms

orgName = 1

Kingdom = 2

photo = 3

singleCelled = 4