Public Sub in_from_excel(ByVal database_name As String, ByVal table_name As String, ByVal field_list_name As String, ByVal excel_file As String)
connectionstring = "data source=" & hostname & "/数据库名" & ";Initial Catalog=" & database_name & " ;User Id=sa;Password=123;"
conn = New SqlConnection(connectionstring)
If conn.State = ConnectionState.Open Then
conn.Close()
End If
'conn.ConnectionString = connectionstring
conn.Open()