Try this:
Private Sub AddLogEntry()
Using DBCon As New OleDbConnection(<PUT ACCESS DB CONNECTION STRING HERE>),
DBCmd As New OleDbCommand("",DBCon)
DBCmd.CommandText = "INSERT INTO Log (LDate, LTime, HCall, " &
"State, County, Band, Freq, Mode, MCall, HRST, MRST, " &
"HOper, MOper, RunStart, RunEnd, NetDuration, HomeCounty, CountyLine) " &
"VALUES(@LDate,@LTime,@HCall,@State,@County,@Band,@Freq,@Mode,@MCall,@HRST,@MRST,@Hoper,@Moper,@RunStart,@RunEnd,@NetDuration,@HomeCounty,@CountyLine);"
With DBCmd
.Parameters.AddWithValue("@LDate", lblDate.Text)
.Parameters.AddWithValue("@LTime", lblClock.Text)
.Parameters.AddWithValue("@HCall", txtCall.Text)
.Parameters.AddWithValue("@State", cbxState.Text)
.Parameters.AddWithValue("@County", cbxCounty.Text)
.Parameters.AddWithValue("@Band", cbxBand.Text)
.Parameters.AddWithValue("@Freq", cbxFreq.Text)
.Parameters.AddWithValue("@Mode", cbxMode.Text)
.Parameters.AddWithValue("@Mcall", lblMCall.Text)
.Parameters.AddWithValue("@HRST", cbxHRst.Text)
.Parameters.AddWithValue("@MRST", cbxMRst.Text)
.Parameters.AddWithValue("@Hoper", cbxHOper.Text)
.Parameters.AddWithValue("@Moper", cbxMOper.Text)
.Parameters.AddWithValue("@RunStart", txtRStart.Text)
.Parameters.AddWithValue("@RunEnd", txtREnd.Text)
.Parameters.AddWithValue("@NetDuration", lblNetDur.Text)
.Parameters.AddWithValue("@HomeCounty", lblHomeCounty.Text)
.Parameters.AddWithValue("@CountyLine", cbxCountyL.Text)
End with
DBCon.Open()
if DBCmd.ExecuteNonQuery() = 1 Then
MsgBox("Row was added SUCCESFULLY.")
Me.RefreshGrid()
Else
MsgBox("Insert FAILED.")
Endif
DBCon.Close()
End Using
End Sub