'La proprietà ConnectionString non è stata inizializzata.'

Imports System.Data.OleDb

Public Class Form2
    Public cnn As New OleDbConnection("Provider= Microsoft.ACE.OLEDB.12.0;Data Source= \\192.168.100.129\Provvisoria\Time_sheet\Time_Sheet.mdb")
    
    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Dim cm As New OleDbCommand("INSERT INTO alessandra (Num_attivita,Data,Codice_commessa,Attività,Ore) VALUES (@num_attivita,@Data,@Codice,@Attivita,@ore)", cnn)
        cm.Parameters.AddWithValue("@num_attivita", TextBox6.Text)
        cm.Parameters.AddWithValue("@Data", DateTimePicker1.Text)
        cm.Parameters.AddWithValue("@Codice", ComboBox1.Text)
        cm.Parameters.AddWithValue("@Attivita", TextBox3.Text)
        cm.Parameters.AddWithValue("@ore", TextBox4.Text)
        cnn.Open()
        cm.ExecuteNonQuery()
        cnn.Close()
        TextBox6.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
    End Sub
End Class