se me cambia de nombre la base de datos

[guillebomtrasmiti]

y borracontenido

'borra el contenido para introducciondeventasahora2 y asi poder cargar luego lo que se va a imprimir
Public Sub borrarcontenidointro2()
Try
Dim ada As New OleDbDataAdapter
Dim datasetcopia As New DataSet

Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
comados.CommandText = "DELETE * from IntroduccionDeVentasAhora2"

conexion.Open()
Dim Lecto1 = comados.ExecuteNonQuery
conexion.Close()
Catch
End Try
End Sub