Public Class frmWeekly_Forecast Dim myDA As OleDbDataAdapter Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\TLPDatabase.mdb" Dim connection As New OleDbConnection(connectionstring) Private Sub btnSaveForecast_Click(ByVal sender As System.Object, ByVal...