Esto te servirá
Código vb:
Ver originalPublic Function Consultar(ByVal newName As String, ByVal connString As String) As Boolean
Dim ExisteTabla As Boolean = False
Dim sql As String = " SP_VE_SI_HAY_TABLA"
Using conn As New SqlConnection(connString)
Dim cmd As New SqlCommand(sql, conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@Nombre_Tabla", SqlDbType.VarChar)
cmd.Parameters("@Nombre_Tabla").Value = newName ''El nombre de tu tabla
Try
conn.Open()
ExisteTabla = Convert.ToBoolean(cmd.ExecuteScalar())
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Using
Return ExisteTabla
End Function