Visual Basic 60 Projects With Source Code -

' Simple addition
Private Sub cmdAdd_Click()
    Dim num1, num2 As Double
    num1 = Val(txtFirst.Text)
    num2 = Val(txtSecond.Text)
    lblResult.Caption = num1 + num2
End Sub

This is the next step for learners, involving database connectivity. In VB6, this is typically done using ADO (ActiveX Data Objects).

Concept:

Code Snippet (ADO Connection without Data Control): Requires Reference: Project > References > Microsoft ActiveX Data Objects 2.x Library visual basic 60 projects with source code

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyFolder\students.mdb;"
conn.Open
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM StudentInfo", conn, adOpenDynamic, adLockOptimistic
' Manually populate text boxes
If Not rs.EOF Then
    txtName.Text = rs.Fields("Name").Value
End If

End Sub
Private Sub cmdNext_Click()
rs.MoveNext
If rs.EOF Then rs.MoveLast
txtName.Text = rs.Fields("Name").Value
End Sub

Best for: Database connectivity using ADODC or Data Control.