any one see any problems with my code? dosent give me any errors, but also dosent work, tho i think it should, please help mr fix itCode:Sub CreateDatabase(ByVal dbName As String) Dim connectionString As String = "server='(local)'; trusted_connection=true; database='DNScards'" Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString) Try dim cmdCreate as string = "CREATE DATABASE [" & dbName & "]" Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand dbCommand.CommandText = cmdCreate dbCommand.Connection = dbConnection dbConnection.Open dbCommand.ExecuteNonQuery Finally dbConnection.Close End Try End Sub![]()




Reply With Quote