Visual Basic - ayuda adodc y text!!

hola

tengo una aplicacion de cotizacion y facturacion, donde las cotizaciones se guardan en bases de datos de access, en cada archivo de access estoy creando 5 tablas en tiempo de ejecucion, una de estas tablas lleva por nombre "concepto", en esta tabla debe de guardar el consepto de la cotizacion pero no me funciona, aqui esta mi codigo:

Private Sub Form_Load()
With Adodc2
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dire & " ;"
.RecordSource = "SELECT * FROM concepto"
.Refresh
End With

Set Text7.DataSource = Adodc2
Text1.Refresh
End Sub

Private Sub Command5_Click()

Adodc2.Recordset.AddNew
Adodc2.Refresh
Text7.Refresh

End Sub

no hagas eso, levanta la consulta en un recordset y despues asignasela al textbox asi

sql="select * from concepto"
rs.open sql,ocon
Text7=rs("concepto")

y no hagas esto tampoco del command5 has esto

Private Sub Command5_Click()

sql="insert into concepto concepto value('" & Text7 & "')"
ocon.exe sql

End Sub

salu2 y suerte

si podrias explicarmelo mas detalladamente te lo agradeceria bastante, lo que pasa es que soy nuevo en visual