Imports System.Data.OleDb
 
Public Class Form1
Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
        "Source=data.mdb;")
        Dim insertsql As String = "INSERT INTO okt (tag) VALUES ('" & _
        Me.TagTextBox.Text & "')"
        Dim cmd As New OleDbCommand(insertsql, conn)
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
   End Sub
 
End Class