Code:
access.Open("Provider = Microsoft.Jet.OLEDB.4.0;" &
                 "Data Source = '" & Application.StartupPath & "\test.mdb'"
                 )
        value = TextBox2.Text
        query.CommandText = "insert"
        query.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
        query.Parameters.Append(query.CreateParameter("RID", ADODB.DataTypeEnum.adInteger,
...