Visual Basic.NET - Enviar datos de un listbox a access

'Abre la conexion con la base

Try

	conexion.Open()

Catch ex As Exception

	MsgBox("La conexión con la base no se realizó, el archivo de la base no se encuentra o la ruta del archivo es errónea", vbCritical, "Configuración de sistema")

	conexion.Close()

	Exit Sub

End Try

'Guardando los nuevos items en la tabla tipos vacia

Try

	conexion.Open()

	For i = 0 To lista_tipo.Items.Count - 1

		lista_tipo.SelectedIndex = i

		comando = New OleDbCommand("INSERT INTO T_tipos(tipo) VALUES (item_lista)", conexion)

		comando.Parameters.AddWithValue("@item_lista", lista_tipo.SelectedItem.ToString)

		comando.ExecuteNonQuery()

	Next

	conexion.Close()

Catch ex As Exception

	MsgBox("Error al cargar el listado de Tipos de Instrumentos en la base de datos", vbCritical, "Configuración de sistema")

	conexion.Close()

End Try